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EDITORIAL 

Ya que te decidiste por este modelo de ordenador, 
nosotros vamos a intentar ayudarte con nuestra re¬ 
vista. En ella encontrarás gran cantidad de juegos así 
como interesantes programas que te aportarán suge¬ 
rencias e ideas para aplicar a tus propios programas. 

Para ayudarte a obtener el máximo provecho, des¬ 
de hace algunos números venimos incluyendo los lis¬ 
tados de los programas. De esta forma podrás cono¬ 
cer los trucos que los programadores han utilizado, 
sirviéndote como modelo para aplicar a tus propios 
programas y juegos, para modificarlos según tus de¬ 
seos, mejorarlos y desarrollarlos como quieras. 

No obstante, si necesitas alguna aclaración sobre 
rutinas, trucos, etc., nuestro buzón está abierto a to¬ 
das tus dudas, así como a las sugerencias que quieras 
ofrecernos. 

Poco a poco, iremos mejorando entre todos las po¬ 
sibilidades de nuestro ordenador. 

Hasta el próximo mes. 
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Editorial .. 

Explicación de los programas 



























































































































































































































































































































































SOFTSPECTRUM. Comentario de los programas 


1. PROGRAMAS DE LA CARA A 

2. COPAS: La noche anterior estuviste de fiesta con tus amigos en tu casa, pero fuiste tan de¬ 
sordenado que dejaste las copas vacías en distinto lugar de la casa. Para que no se den cuen¬ 
ta tus padres cuando vuelvan, tendrás que colocarlas en su lugar, aunque esto no te resulta¬ 
rá tan fácil, pues aún te dura la resaca del día anterior y crees ver a fantasmas que te persi¬ 
guen. Las teclas para moverte por la casa son: Q. arriba, A. abajo, P. derecha, O. izquierda. 

3. LA TARTA: Después de esperar un nuevo año, por fin es tu cumpleaños, pero para celebrarlo 
deberás ir recogiendo el mayor número de velas posible por las distintas pantallas de las que 
dispone el juego. A medida que vayas pasando de pantalla la dificultad irá aumentando. Dis¬ 
pones para llegar hasta la última pantalla de tres vidas, y cuanto mayor sea el número de ve¬ 
las recogidas, mayor será tu puntuación. A ver si llegas a adornar el pastel. Teclas: Q. arriba, 
A. abajo, P. derecha, O. izquierda. 

4. TURBO: Hoy día salir a la carretera supone cierto riesgo, sobre todo cuando tienes que Ir a la 
caza de todos tus contrarios, los que crees que son contrabandistas de droga. Para ello te 
has dispuesto de un ferrari turbo al cual va acoplada una ametralladora con la cual podrás ha¬ 
cer impacto a los coches que circulan en sentido contrario. Andate con cuidado porque al 
moverte de dirección el coche contrario acelera, y te será difícil dar en el blanco. Tus teclas 
son; Q. izquierda, P. derecha, SPACE. disparo. 

5. DESTRUCTOR: Te encuentras en la galaxia Andrómeda. Al perderse tu mapa de ruta, os ha¬ 
béis metido con la nave, en una tormenta de meteoritos. Para poder salir de ésta, tendrás que 
ir destruyendo el mayor número de meteoritos posibles, para evitar que choquen con tu na¬ 
ve, la cual seria destruida cuando los meteoritos te diesen cinco veces. Para su destrucción 
dispones de cuatro láser que se mueven simultáneamente mediante las teclas: Q. arriba, A. 
abajo, O. izquierda, P. derecha, SPACE. disparo. 

6. FLECHA: Te encuentras en la edad media y tu humilde pueblo está siendo atacado por los 
Güiros, terribles gusanos gigantes creados por el temible Voltar que quiere adueñarse de la 
Tierra. Para impedir su objeto y salvar a tu pueblo, deberás matar a los Güiros. Si consigues 
destruir a todos habrás ganado la batalla y harás fracasar a Voltar de su plan macabro. Pero 
cuidado porque sólo dispones de un arco para destruirlos. Su manejo es con las siguientes te¬ 
clas: Q, izquierda, P. derecha, SPACE, dispara. 

7. LASER-X: Dispones de un arma sofisticada que ¡leva el disparo en la dirección del objeto que 
se vaya acercando. En este caso el objetivo es una bomba teledirigida que te va siguiendo a 
cualquier sitio al que te dirijas. Tendrás que destruiría antes de que llegue a tocarte, o de lo 
contrario ella te destruirá a ti. A medida que avanza ei juego irán apareciendo un mayor nú¬ 
mero de minas repartidas por la pantalla a las que podrás esquivar sin tocarlas. Tus teclas de 
movimiento son: Q. arriba, A. abajo, O. izquierda, P. derecha, SPACE. disparo. 

8. ROCAS: Te encuentras ante un programa didáctico, en el que tendrás que adivinar a qué cla¬ 
se de roca corresponde la que el ordenador te enseña en pantalla. Para ello sólo tendrás que 
elegir el número que corresponda a la roca. Al empezar, el ordenador te da a elegir tres opcio¬ 
nes. La 1. 9 que es un comentario general para que sepas de qué va el asunto, la 2, 9 el orde¬ 
nador te muestra una serie de rocas y la clase a que pertenecen, y en la 3. 8 parte te hace una 
serie de preguntas relacionadas con las del 2 .° apartado. ¡No te oesanimes, e intenta acertar 
todas! 













PROGRAMAS DE LA CARA B 

9. COMETA. Al lado de tu planeta, ha habido una explosión de una estrella y sus fragmentos 
han provocado una lluvia intensiva de cometas sobre la tierra. Tú deberás destruirlos, por lo 
que se te ha provisto de la nave más potente y rápida de la galaxia, de la que deberás utilizar 
su disparo para destruir a tales cometas. Cada vez que falles el disparo, perderás energía, así 
que ten cuidado de no errar el disparo. ¡Suerte! Tus teclas son Q. arriba, A. abajo, P. derecha, 
SPACE. disparo. 

1 0. TELEMIRA. Te encuentras en la 2. a Guerra Mundial, y los cazas alemanes están lanzando 
sus bombas sobre nuestra ciudad. Sólo dispones para destruirlas de un bazoca, al que sólo te 
funcionará el primer disparo. Si fallaras, la bomba destruirá inevitablemente parte de la ciu¬ 
dad, y en el programa se te irán descontando puntos. No dejes que los alemanes nos ganen la 
guerra. Para mover utiliza: Q. arriba, A. abjo, O. izquierda, P. derecha y SPACE. disparo. 

11. ASPIRADOR. En este juego dispones del manejo de un aspirador mágico. Por causas desco¬ 
nocidas de este planeta los hombres se han visto paralizados, y tu misión como único super¬ 
viviente, será sanarlos con tu aspirador que los trasbordará a otra dimensión. Ten cuidado no 
ultrajes las tumbas de los que ya han muerto, o morirás tú también. Cuanto más hombres re- 
cogas, mayor será tu puntuación. Dispones de cierto tiempo para recoger el mayor número 
de hombres antes de que se desintegre el planeta, las teclas son: Q. arriba, A. abajo, P. dere¬ 
cha, 0. izquierda, SPACE. recoge el muñeco. 

12. PUENTE. En tu situación actual estás sin trabajo, y hoy día hay que agarrarse a la primera 
oferta que se te aparezca. Has sido contratado como vigilante de un puente que tendrás que 
mover según el coche que en ese momento necesite atravesar el río. Para ello dispones del 1 
para moverlo arriba, de la 2 para situarlo en el medio, y la 3 para moverlo abajo. A ver que tal 
te funcionan ios reflejos y consigues que ningún coche caiga al río. 

1 3. LANCHA. Estás en plena selva virgen, en el río Guachicoco y llevas una lancha fueraborda 
provista de una ametralladora, con la cual tendrás que hundir a las embarcaciones que te en¬ 
torpecen el paso hacia el mar donde te intentas dirigir. Muévete con rapidez, porque las em¬ 
barcaciones contrarias son numerosas y debes conseguir destruir todas para poder salir de ia 
selva. Las teclas son: Q, arriba, A. abajo, P. avanza, SPACE. disparo. 

14. INVASOR. Has sido contratado por la NASA para dirigirte con tu nave nodriza de expedición 
a Júpiter. En el espacio has salido de la nave para coger varias muestras, y por desgracia se 
ha roto la cuerda que te unía a la nave y esta sigue su trayecto. 

Tú deberás conseguir aterrizar de nuevo en la nave gracias a tu turbo-yet que llevas a la es¬ 
palda. Pero cuidado con las terribles sierras que te impedirán tal objetivo. Teclas: Q. arriba, 
0. izquierda, P. derecha. 

1 5, TABLAS. Estás ante un programa didáctico, para enseñanza en las escuelas o en tu propia 
domicilio. Se trata de tas clásicas tablas de multiplicar y de sumar, las cuales el ordenador te 
las hará visualizar en la pantalla. Posteriormente te pedirá el resultado de cada operación. Si 
te es posible utilízalo para enseñar a tus hermanos pequeños. 
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LA TARTA 


ANGEL GARCIA DELGADO 


IDEAS DE SOFT SPECTRUM 

Aquí estamos una vez más a la búsqueda de soluciones. El problema que vamos a tratar de resolver 
consiste en modificar el modo del cursor cuando éste se hace presente en una sentencia INPUT. La forma 
más fácil de conseguirlo, consiste en alterar directamente en memoria, e! contenido de la variable del siste¬ 
ma llamada MODE. La mencionada variable se localiza en la posición de memoria 23617 (decimal), 5C41 
(hexadecimal). 

Cuando POKEamos en MODE el valor 0, el cursor aparece en pantalla en modo L. 

Cuando en MODE guardamos el valor 1, obtenemos el cursor en modo E. 

Y cuando sea el valor 2 el que guardemos, dispondremos del cursor en modo G. 

Pero nos es posible conseguir efectos interesantes, cambiando el valor de MODE (introduciendo valo¬ 
res entre 0 y 255), como el hacer aparecer un TOKEN en el lugar de las letras G, Ly E. Puede comprobar es¬ 
to introduciendo el siguiente programa: 

10 FOR A = 0 TO 255 
20 POKE 2361 7,a 
30 INPUT A$ 

40 NEXT A 


ADORNA TU PASTEL DE 
CUHPLEAÑOS CON LAS 
VELAS QUE TIENES EN 
EL SOTANO. 

TECLAS: 

0:£ A:$ 0:4> P:4 


1 IF INKEYÍO"" THEN GO TO 9999 

2 CLS 

3 PRINT AT 9,0 

4 LET Ai=“PARA LA CINTA": GO SUB 9200 

5 LET a=USR 23464: FOR a=0 TO 21*8: POKE 65089+a,PEEK (23296+a): NEXT a 

6 CLS : LET Ai="ANGEL GARCIA DELGADO PRESENTA:": GO SUB 9200 

7 LET A*=“<< LA TARTA >>": GO SUB 9200 

S LET A*=“G-T.S.": GO SUB 9200 

9 LET Ai-"PULSA UNA TECLA RARA EMPEZAR": GC SUB 9200 

10 IF INKEYÍ=” 1 2 3 4 5 6 7 * 9 10 11 THEN GO TO 10 
12 POKE 23693,7: BORDER O: CLS 
15 LET P=0: LET 3: LET F=1 
90 IF F >9 THEN GO TO 6000 

100 CLS : PPINT "eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeePUNTOS: O eeeeseVIDAS: O 

eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee“ 
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110 PRINT “eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee": FOR a=4 TO 20: PRINT AT A,0;"e"jA 
T A,31í"e": NEXT A 

120 PRINT "eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee" 

125 BEEP 1/5,10: 60 SUB 2000: GO 3UB 5050 
130 60 SUB 5000+F*100 
150 LET X=10: LET Y=2 
lóO LET Í'B=10: LET YB=2 
1000 IF INKEYÍ="q" THEN LET X=X-1 
1010 IF INKEY$="a" THEN LET X=X + 1 
1020 IF INKEY*="o" THEN LET Y=Y-1 
1030 IF INKEY*="p" THEN LET Y=Y+1; 

1040 LET A*=SCREEN* <X,Y) 

1042 IF A$=“c" THEN LET P=P+15: BEEP 1/50,30: PRINT AT X,YJ" ";AT X+1,Y; 


IF Y>31 THEN LET F*F+1: 60 TO 100 


SUB 2000 

1044 IF A$="d" OR THEN LET X=XB 


GO 


LET Y«YB: BEEP 1/100,0 


1046 IF A$>"e’' AND Aí<’'n" THEN 60 SUB 3000 
1048 LET A$=SCREENS (X+1,Y) 

1050 IF A$= 11 c" THEN LET P=P+15: BEEP 1/50,30: PRINT AT X,Y;'* “: AT X + 2.Y;“ GO 

SUB 2000 

1060 IF A*="d" OR Ai* "e" THEN LET X=XB: LET Y=YB: BEEP 1 / 100,0 
1020 IF A*> " e " AND AÍ<"o" THEN 60 SUB 3000 

1100 PRINT AT XB, YB j “ " ; AT XB+l,YBj" ■ f AT X,Y}”a ,, ;AT X+I f Y;"b" 

1110 LET XB=X: LET YB=Y 
1200 60 SUB 6 
1500 GO TO 1000 

5000 FOR A=1 TO 20: LET XP=4+INT (RND*16>: LET YP=1+INT (RND*28) 

5010 PRINT AT XP,YP,M5*¡: NEXT A 
5020 LET 6=5090 
5040 RETURN 


5050 

5060 

FOR A=1 TO J 
PRINT AT XP, 

20: LET ) 
,YP; "c "\< 

<P=4+INT 
AT XP+1,' 

(1 

fP 

i * d 11 : i 

): LET 

MFXT a: 

5090 

5100 

5110 

RETURN 

LET M*= “ l< 1" ; 
PRINT AT 10, 

1 C T - n 

: GO SUB 
,31!* u U 

5000 

AT 11,31; 

t 

": RETURN 

U 4 v v 

5210 

5211 

5212 

i iji-p- mn 

LPT fisS'PSn 





FOR A=4 TO 20: PRINT AT a,7¡ 
LET K=10: LET D=1 

; H i 

* e i 

* e e 

5214 

FOR a=7 TO 31: LET C=4+INT ' 

ÍRNB*12); 

: PRINT 

5220 

5250 

5252 

5255 

RETURN 

PRINT AT K,í 
LET K=K+D: ] 
IF K<6 THEN 

% 1 II i* M A ^ 





5 r j « J | 1 1 t 

CF K >13 THEN LET 
LET D-i 


" ;AT K, 
= -l 

,14?" 


e": NEXT a 


’íAT K,12;" ";AT K,20; 


5260 PRINT AT K,S;í1íiAT K,ll;Mí;AT K,i4;Mí;AT K,17;M$;AT K,20 jM$ 
5290 RETURN 

5300 LET GO SUB 5000: GO TO 5110 

5400 LET XM=íO: LET YM=10 
5410 LET LET G=5450: LET DI*. 5 

5440 GO TO 5110 

5450 PRINT AT XM,YMí" "í IF RND>DI THEN GO TO 5470 

5454 IF XM< X THEN LET XM=XM+1 

5455 IF XM>X THEN LET XM=XM-1 
5460 IF YM<Y THEN LET YM=YM+1 
5465 IF YM>Y THEN LET YM*=YM-1 
5470 PRINT AT XM,YM;MÍ 

5499 RETURN 

5500 LET g “ 

5599 RETURN 

5600 LET mí="gf" 

5610 GO TO 5110 
5700 LET m4="mri" 

5800 LET mí="ee“ 

5900 LET m$="-fg": GO SUB 5000: LET ro$¡="mn 


GO TO 5210 
GO SUB 5000 

LET DI=.6; LET g=545G: 60 TO 5110 
GO TO 5210 


„ GO SUB 5000: GO TO 5110 

6000 CLS 

6010 LET a*» H !!í LO CONSEGUISTE )!!"; GO SUB 9200 
6020 LET Aí= “PUEDES COMERTE EL PASTEL’*: GG SUB 9200 

6030 PRINT : PRINT TAB (14) ; " ccccc “: PRINT TAB (14) i " ddddd ": PRINT TAB (14) 


PRINT TAB (13) í "hi i i i i j *■: PRINT 





6035 POR A*3 TO 10: FOR B=1 TO 50 STEP A: BEEF 1/10,B: NEXT B: NEXT A 
6040 PRINT : GO TO 9040 
6100 STOP 

7000 PRINT PAPER 8; INK 8;AT i,10jP;AT 1,28;V: IF V<1 THEN GO TO 9000 

7010 RETURN , A _,. 

8000 FOR a=0 TO -40 STEP -1: BEEP i/100,a: NEXT a: LET v=v-i: GO SUE 7000. 

N 

8900 STOP 

9000 POKE 23693,7: BORDER O: CLS 

9010 PRINT AT 4,0: LET aí=“GANE OVER": GO SUB 9200 
9020 LET AS-“TU PUNTUACION: “+STRS (P): 60 SUB 9200 
9030 GO SUB 9100 

9040 LET AS="OTRA PARTIDA: <S/N)": GO SUB 9200 

9050 IF INKEYS="S" OR INKEYS="s" THEN RUN ó 

9060 IF INKEYS= 11 n 11 OR INKEYS=''N , ‘ THEN RANDOMIZE USR O 

9070 GO TO 9050 

9100 DATA .5,~3,.55,-3,.2,-3,.65,-3,.5,0,.25,-1,.5,-1,.25,-3,-5,-3,.25,-4, 

9110 RESTORE 9100 

9120 FOR a=i TO 11 

9130 READ aa,aaa 

9140 BEEP aa,aaa 


9150 NEXT a 
9160 RETURN 

9200 LET b$= 11IJ 
9210 INK 2+RND*5: LET c=LEN aS+2: LET b=16-c/2 
9220 PRINT TAB (b)íbS( TO c) 

9230 PRINT TAB <B);”?“; INVERSE 1, PAPER 9¡aS¡ INVERSE Oi”?“ 

9240 PRINT TAB (b)JbS( TO c) 

9250 PRINT 
9260 RETURN 

9993 CLS : LOAD ""SCREENS 

9999 SAVE "LA TARTA"CODE 16334,PÉEK 23ó27+25ó*PEEK 23628-16332: GO TÜ i 


RETUR 





DENTRO DE Lfl CABINA 
DE TU FERRARI, HRZ 
UNA PERSECUCION POR 
LAS CALLES DE NEU- 
YORK. TECLAS: 

0:t> P:4 SPACE: ¡1*1 ra 



1 IF INKEYSO"" THEN GO TO 9999 

2 CLS ; PRINT AT 10,10;“PARA LA CINTA" 

3 PAUSE 200 

5 INK 7: BORDER 6: PAPER 1: CLS 
10 LET x=12: LET y=15 
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20 LET r=5: LET t=15 
22 LET rr = 1 
25 LET rb=r : LET tb=t 
30 LET ac=0: LET +a=0 
40 LET er. = 22 

80 PRINT PAPER i;AT 0,0¡ H 
90 PRINT PAPER 0f INK 1fAT 1,0; 
100 FOR a=2 TO 5: PRINT PAPER 5; 
T a 

110 FOR a=5 TO 12: 

XT a 

120 PRINT PAPER 0; 

130 FOR a=2 TO 12: 

140 FOR a=14 TO 21 
XT a 

142 PRINT PAPER 1; 


1 ??? 

INK 0;AT a,3;"? 


PRINT PAPER 6; INK OJAT a,3;"? 


O'ÍO “ 


n » 


INK i; AT 13,0; ■■??? 
PRINT PAPER 1 iAT a,0;■ 
PRINT PAPER l;AT a,O;" 


"!AT a,29¡“ 


???" 

NEXT a 


NEX 


NE 


NE 


INK 5;AT 19,13}“ENERGIA’ 


143 PRINT PAPER 2}AT 20,12;" 


PAPER 4; AT 20,15; 11 


PAPER 5!AT 20,18;" 


145 PRINT BRIGHT 1; INK 3;AT 15,6;"FALLOS";AT 15,20;“ACIERTOS" 

147 PRINT PAPER 1; BRIGHT Ij INK 7;AT Í8,8i"0" 

148 PRINT PAPER 1} BRIGHT 1; INK 7;AT 18,23;"O" 

150 INK 7: CIRCLE 130,43,17: CIRCLE 130,43,3 

151 INK 7: CIRCLE 130,43,16: CIRCLE 130,43,2 

152 PLOT 132,45: DRAW 7,7 
155 CIRCLE 73,27,15 

160 CIRCLE 195,27,15 
190 INK O 

195 PLOT 32,135: DRAW 30,0 

196 PLOT 143,135: DRAW 80,0 
200 PLOT 32,72: DRAW 80,63 
210 PLOT 223,72: DRAW -80,63 

220 FOR a=l TO 20: INK 2! PLOT 112,135: DRAW a-80,-63: NEXT a 

230 FOR a=0 TO -20 STEP -1: INK 2: PLOT 143,135: DRAW a+80,-63: NEXT a 

240 IF INKEYSO"" THEN GO TO 400 

241 FOR q=2 TO 40 STEP 17: INK 2: PLOT 110-q*l.5,134: DRAW 0,~q*1.2: NEXT 


242 FOR q=1O TO 60 STEP 25: INK 2: 

243 IF INKEY¡£< >" “ THEN GO TO 400 
245 FOR q=2 TO 40 STEP 17: OVER 1: 

XT q: OVER O 

247 FOR q=1O TO 60 STEP 25: OVER 1 
T q: OVER O 

250 FOR q=10 TO 60 STEP 25: INK 2: 

310 FOR q=1O TO 60 STEP 25: INK 2: 

311 IF INKEY$< >" 11 THEN GO TO 400 

312 FOR q-10 TO 60 STEP 25: OVER 1 
T q: OVER O 

315 FOR q=10 TO 60 STEP 25: OVER 1 
: OVER O 

410 IF INKEYS="q" THEN LET y=y-l: 
420 IF INKEY$="p“ THEN LET y=y+i: 
450 IF INKEY4=" “ THEN EEEP .005,- 

460 PRINT PAPER ó‘, INK 1 i AT x,yj“ 


PLOT 140+q-K-l. 3,134; DRAW C,-q+2: NEXT q 

INK 2: PLOT 110~q*l,5,134: DRAW 0,-q*1.2: 

INK 2: PLOT 140+q*1.3,134: DRAW O,-q+2: 

PLOT 110-q*l.2,134: DRAW 0,-q+2: NEXT q 
PLOT 145+q,134: DRAW 0,-q#.8: NEXT q 


NE 


NEX 


NEX 


: INK 2: PLOT 110-q#l.2,134: DRAW 0,~q+2: 

: INK 2: PLOT 145+q,134: DRAW 0,~q*.8: NEXT q 

IF y<11 THEN LET y-ll 
ir yí1ó THEN LET y*16 
10: GO SüB 1100 

u 


500 

503 

505 


IF rr“C THEN PRINT PAPER ó; INK 4;AT rb r tb; M #p i AT r p ti *? H 
IF r<=6 THEN LET rr = i 

IF r r = 1 THEN PRINT PAPER ó; INK 4fAT rb f tbí'‘ ri íAT r, t i ,J ?" 

510 LET rb=r; LET tb=t 

520 IF rr=0 THEN LET r=r+l: IF r >12 THEN LET fa=fa+i: 

8,S;f a: LET r = 5; LET t = 14 + INT ÍRND*45 
525 IF f a >20 THEN GO TO 4000 
530 IF rr=1 THEN LET r=r+,5 
540 IF r > =7 THEN LEI rr-0 
1000 GO TO 240 
1100 LET xx=x-2: LET yy=y + 2 

1105 PRINT INK 2i PAPER ÓJAT x x, yy; ” ? 11 f AT xx+i,yy; JI kl 
1107 IF rr=0 THEN IF yy=t AND xx-r THEN BEEP .05,-10: EEEP 
1110 LET xx=xx“l 

1112 IF e n < -15 THEN PRINT FLASH i; PAPER i; INK 5;AT 19 , 13 i 11 EMERGI A 11 

1113 IF en>15 THEN PRINT FLASH 0; PAPER i; INK 5;AT 19,13;"ENERGIA" 


PRINT PAPER l; INK 7;AT 1 


05,10: GO TO 2500 


g 




; PRINT PAPER Si INK 


PRINT PAPER 6iAT xx +1,yy; " 


1115 1F »n-:i2 THEN GO TO 4000 
1120 IF xx<2 THEN LET en=en-l: 

HAT 20,en; M ^": RETURN 

1130 GO TO 1105 _ T E „ encD 

?"ínn POR v j= 1 TO 255 STEP 4: OÜT 254,w: NEXT w: BORDER ó 

251 0 PRINV PAPER 6? INK 2;AT xx-l,yyJ*?“: PAUSE 15: PAUSE 15: PRINT PAPER 6) AT x 



DESTRUCTOR 


ANTONIO GARCIA DGDO 


RITOS QUE AHENAZAN 
LA SEGURIDAD DE TU 


ÑAUE 


DISPARAR 


PAPER ¿iAT r, ti " " 
i-se+2O 

e=ac TO aci: PRINT PAPER li BRIGHT li INK 7¡AT 18,23ie: BEEP .Q05,RND*4 

; NEXT e 
2545 LET ac=ac+20 
2547 IF ac > = 600 THEN GO TO 4100 
2550 LET r=5: LET t=14+INT <RND*4> 

2565 IF en >20 THEN LET en=20 
2570 PRINT PAPER SiAT 20, en i 11 " 

2575 LET en=ert + l 

2580 LET x x—x -2: LET yy=y + 2 

2600 GO TO 240 

4000 FOR a=l TO 3: FOR s=l TO 255 STEP 4.1: ÜUT 254,s: NEXT s. NEaT a 
4010 PRINT AT 6,11»“GAME OVER" 

4020 PRINT AT 11,7;“OTRA PARTIDA S/N" 

4030 IF INKEY*="s u THEN CLS : RUN 5 
4040 IF INKEYÍ="n" THEN RANDONIZE USR O 
4050 GO TO 4020 

4100 FOR a=l TO 30: BEEP .Q5,RND*40: NEXT a 
4110 PRINT AT S,3!"LO CONSEGUISTE" 

4120 GO TÜ 4000 

9RF8 CLEAR : LOAD "“SCREENÍ rn m t 

9999 SAVE “TURBO"CODE 16384,PEEK 23627+256*PEEK ¿362d-16382. GO TO 1 


1 IF INKEYÍO"" THEN GO TO 9999 

2 CLS 

3 PRINT AT 9,0 

4 LET Aí="PARA LA CINTA": GO SUB 9200 

5 PAUSE 200 

15 BORDER 0: PAPER O: INK 7: CLS 













20 

30 

35 

36 
40 
50 
62 
70 
80 

100 

200 

210 

220 

230 

240 

300 

301 
500 
510 
520 
530 
540 
590 
600 
605 
¿10 
615 
¿20 
630 
700 

1000 

1050 

1055 

1060 

1070 

1110 

1120 

1130 

1140 

1150 

1200 

1210 

1220 


LET x=10: LET y=15 

LET w=x: LET e=y 

LET ww=2Q; LET ti=0 

LET ee=30: LET eee=l: LET www=3 

LET s=4: LET <3 = 8 

LET sb=s: LET db=d: LET i =0 

LET eb=e: LET wb=w: LET eeb=ee: LET eeeb=eee: LET wwb=ww: LET wrtwb=www 
LET pu=0: LET vi=5 

FOR g=l TO 30: PRINT AT 2 + RND*19, RND*31 j ". 11 : NEXT g 
PRINT AT 0,0;“ VIDAS:05 PUNTOS:000 
PRINT INK ó I AT 20, yl" ?? " í AT 3,yi" ?? " 

PRINT INK 6; AT x,l¡" " 5 AT x +1, 1; "?*’j AT >; + 2, 1 j "?“j AT x+3,lí“ 

PRINT INK 65AT x,30;‘* *'; AT x +1,30 j 5 AT x + 2,30? " ?" i AT x+3,30j‘ 

PRINT BRIGHT 1 ;AT x +1,y + 1 i"?“i AT x + 1,y + 2»"?“iAT x+2, y+1j"?"¡ AT x+2,y+2i 
PRINT AT x +1, y+15 * “ i AT x + 1,y + 2;" "5 AT x+2,y+lj" "jAT x+2,y+2j" 

IF ti — 1 THEN LET w=x + l: LET e=y + i: LET ti=2 
IF ti -2 THEN GO 3UB 1100 

IF INKEY$="p" THEN LET /=y + l: IF y>26 THEN LET y=26 

IF INKEY*="o" THEN LET y~ y-1: IF y<l THEN LET y=l 

IF INKEY$="q" THEN LET x=x-l: IF x<3 THEN LET x=3 

IF INKEYÍ="a" THEN LET x=x+l: IF x>17 THEN LET x=17 

IF INKEY$=" " THEN LET ti=i 

PRINT AT 3b,dbj" "iAT sb+l,db;" 

PRINT INK 2iAT s,d;"??"iAT s + l.di”??" 

LET sb=5: LET db=d 
IF -f = l AND ti =0 THEN LET d=d + l 
IF Í=O AND ti=0 THEN LET s=s+l 
IF s >18 OR d >28 THEN GO TO 1050 
IF d >28 THEN GO SUB 3000 

IF RND >. 9 THEN PRINT AT 2+RND3-19, RND#31! " . " 

GO Tü 200 

LET vi=vi-1: PRINT AT O.lljvi 
IF vi~0 THEN GO TO 4000 
GO SUB 3000 
GO TO 200 

PRINT INK 4;AT wwb,ebj" "íAT wwb,eb+i;“ "¡AT ww,e;"?"¡AT ww,e+l¡ 

PRINT INK 4 i AT wnwb,ebj*' " fAT wwwb,eb+lj" “ JAT www, e; " ? “ í AT www, e + 1 j 
PRINT INK 4 ; AT wb,eeb;“ “jAT wb+l,eeb;“ "jAT w, eej “ ? 11 S AT w+l,ee5 H ?" 
PRINT INK 4 5AT wb,eeeb;'‘ “ jAT wb + 1, eeeb; “ "; AT w, eee i ” ?" j AT w+l,eee¡"?“ 

LET eb»e: LET wb=w: LET eeb=ee: LET &eeb=e-ee: LET wwb-ww: ‘.E T .:viv + - 

LET ww=nw“ 2 
LET www=www+2 
LET 


-\ 



¡olecln de suscripción 




•o. 


A 


A remitir a SOFT-SPECTRUM - C/. Batién, 20. 1.° Izda. 28005-Madrid. 

Deseo suscribirme a los 1 1 números de ia revista Soft-Spectrum por sólo 2.500 pts. 
a partir del próximo número. 

E! importe lo haré efectivo: 

□ Por giro postal n.°.. - 

□ Por talón nominativo adjunto. 

□ Contra reembolso a la recepción del primer ejemplar, más gastos de envío. 


Nombre y apellidos: 

Domicilio:. 

Ciudad:. 

. Fecha: . 


Teléfono: 
. Firma: . 

















1230 LET eee-eee+2 
1250 IF ww<=w THEN LET ww-w 
i 2ó0 IF hww>=w THEN LET www*h 
1270 IF ee-<=e THEN LEI ee=e 
1290 IF aee>=e THEN LET 

1290 Ir ww=w AND wwh=w AND AMO THEN GC SUB 200u . LET ti-O: lET hw=20; 

LFt ****?.o: LET 6c .r! : LET w;jw-~2 
1300 PF T MPN 

7^00 PRINT INK Si AT *•; + i ( e; M ^ 11 l AT w f 1 , e + 1 ; ,r ? w ; AT w,e+i; ,: ? H 

2C0S EOF L1 73 20: 3EEP .005,RND*40: BOEDER RND#6: NEXT t 
2010 BGRDZR O 

2 DI 5 PRINT AT w,a-3;" " i AT *+1,0-3;” 

7020 IF s >w-2 AND síw+2 AND d>e-2 AND d<e + 2 THEN LET pu=pu+20: PRINT AT 0,24 ;pul 
GQ S'UB 3000 
2100 RETURN 

3000 LET + = I NT ÍRND*2> 

3010 IF f =0 THEN LET d=3+INT CRND*22): LET 5=4 
3020 IF -f = l THEN LET b= 4+INT ÍRND*12) : LET d=2 
3025 BEEP ,05,20 
3040 RETURN 
4000 GO TO 9000 

9000 LET p=pu: POKE 23693,7: BORDER O: CL3 
9010 PRINT AT 4,0: LET aS= M SAME OÜER": GO SUB 9200 
9020 LET A*= Ü TU PUNTUACION: "+STR* fP>: GO SUB 9200 
9030 GO SUB 9100 

9040 LET A$=" OTRA PARTIDA: ÍS/NJ ,Í : GO SUB 9200 
9050 IF INKEY$= 11 S" OR INKEY*-"** THEN GO TO 10 
9060 IF INKEY$=" n" OR I NKEY$= " N 11 THEN RANDONIZE USR 0 
9070 GO TO 9050 

9100 DATA ,5,-3,,55,-3,,2,-3,,65,-3,,5,0,,25,-1,,5,-1,,25,-3,,5,-3,,25,-4,,75, -3 

9110 RESTORE 9100 

9120 FOR a=l TO 11 

9130 READ aa,aaa 

9140 BEEP aa,aaa 

9150 NEXT a 

9160 RETURN 

9200 LET b$= "" 

9210 INK 2+RND*5: LET c=LEN a*+2: LET b=ló-c/2 
9220 PRINT TAB <b);b*C TO c) 

9230 PRINT TAB INVERSE 1; PAPER ?¡a$í INVERSE O»“?" 

9240 PRINT TAB <b);b*( TO c) 

9250 PRINT 
9260 RETURN 

999S OLEAR : LOAD ""SOPEEN* 

9999 SAVE " DESTRUCTOR 11 CODE 16384, PEEK 23627+256*PEEK 23628-16382; GO TG i 


snfL— 

SPECTRUM 

Bailén, 20 - 1° - Izda. 


28005 MADRID 


12 









1 

2 

3 

5 

10 

12 

15 

20 

30 

40 

50 

Ó0 

100 

105 

110 

120 

130 

240 


LET 

LET 

LET 

LET 

LET 

LET 


IF 

IF 

IF 

IF 

IF 


ACIERTOS:00 


IF INKEYSO"" THEN GO TO 9999 
CLS : PRINT AT 10,105“PARA LA CINTA" 

PAUSE 200 

BORDER 4: BRIGHT 1: PAPER 5: CLS 
LET a=15: LET b=20 
aa=a 
r=0 

x=5: LET y =0 
xx=9: LET y y-O 
xxx=2: LET yyy=10 
■f a=0: LET ac=0 

PRINT PAPER 4f INK 7?AT 0,05“ FALLOS:00 
IF r=0 THEN PRINT AT 21, ai" ????? "5 
r=i THEN PRINT AT 21,a5" ????? "5 
INKEY$="p" THEN LET a=a+l: IF a>25 THEN LET a=25 
INKEYÍ="q" THEN LET a=a-l: IF a<0 THEN LET a=0 
r=0 THEN IF INKEY$=" " THEN LET r=l: LET aa=a: BEEP .05,10 
r=l THEN PRINT INK ó}AT b,aa+35“?“5AT b+l,aa+35" LET b=b-l: 
EN PRINT AT b+l,aa+3}" LET r=0: LET b=20 
300 IF ATTR (b,aa+3)=10ó THEN GO TO 600 
400 PRINT AT x,yí" ????’’ 

410 LET y=y+.5 

420 IF >'>27 THEN PRINT AT x,yi" “: BEEP .1,-10: LET fa=-fa+l; LET 

ND#15): LET y=0 
450 PRINT AT xx,yy;" ????" 

460 LET yy=yy+.3 

470 IF yy>2? THEN PRINT AT xx.yyj" 

T (RND*15): LET yy=0 
500 PRINT AT xxx.yyyi" ????“ 

510 let yyy=yyy + -4 

520 IF yyy>27 THEN PRINT AT xxx,yyy¡" 

2+IMT (RND*15>: LET yyy=0 
600 IF b=x AND aa+3>y AND aa+3<y + 4 THEN GO SUB 
IF b=xx AND aa+3>yy AND aa+3<yy+4 THEN GO 
IF b=xxx AND aa+3>yyy AND aa+3<yyy+4 THEN GO SUB 2500 
PRINT PAPER INK 7;AT O.ilj-fa 
IF { a=20 THEN GO TO 4000 
GO TO 100 

.05,30: PRINT INK 2;AT x,yí- ????■: PAUSE 15: PRINT AT x,y¡ 


610 

620 

690 

^00 

1000 

1500 


BEEP .1,-10: LET fa=fa+l: LET xxx- 


1500 

SUB 2000 


EEFP 
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NEXT 


LfiS ROGOS 


ANTONIO GARCIA DGDO 


ADIVINA R OUE CLA 


ROCA 


OUE 


ORDE 


MOSTRARA 


PRINT AT 10,10 


PARA LA CINTA 


1510 LET x-2+INT <RND*15>: LET y =O 
1515 PRINT AT b+l,aa+35“ " 

1520 LET r =0: LET b=20 
1530 LET ar-ac + i 

1540 FRINT PAPER 4: INK 7;AT 0,26:ar 
1550 IF ac=5ü THEN GO TO 4500 
1560 RETURN 

2000 BEEP .05,30: PRINT INK 2;A“ xx,yyi 11 ????“: PAUSE 10: PRINT AT yy!" 

2010 LET xx=2+INT «RND*15): LET yy=0 
2020 PRINT AT b+l,aa+3í“ “ 

2030 LET r=0: LET b=20 
204C LET ac=ac+1 

2050 PRINT PAPER 4; INK 75AT 0,26¡ac 
2060 IF ac=50 THEN GO TO 4500 
2070 RETURN 

2500 BEEP .05,30: PRINT INK 2?AT xxx.yyy;" ????“: PAUSE 10: PRINT AT xxx,yyy;" 

M 

2510 LET xxx=2+INT (RND*15); LET yyy=0 
2520 PRINT AT b + i.aa+3;* 1 " 

2530 LET r=0: LET b=20 
2540 LET ac = ac +1 

2550 PRINT PAPER 4; INK 7;AT 0,26;ac 
2560 IF ac=50 THEN GO TO 4500 
2570 RETURN 

4000 FOR a=l TO 255 STEP 1: GUT 254,a: 

4010 PRINT AT 10,10;"GANE OVER" 

4020 PRINT AT 12,6;"OTRA PARTIDA S/N“ 

4030 IF INKEY*="s" THEN CLS ! RUN 4 
4040 IF INKÉY*» a n“ THEN RANDOMIZE USR O 
4050 GO TO 4030 

4500 FOR a=l TO 30: BORDER RND#6: BEEP 
4510 PRINT AT 6,8;“LO CONSEGUISTE" 

4520 GO TO 4010 

9998 CLEAR : LOAD *"SCREEN$ 

9999 SAVE “FLECHA”CODE 16384,PEEK 23627 


,009,RND*40: NEXT a 


1 IF INKEYS-"g" THEN GO TO 9999 

2 RANDOMIZE O: BORDER O: POKE 23693,71: CLS 
PAUSE 200 
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9 CLS : GO TO 100 

10 LET AC=0: FOR N=1 TO 10: BEEP 1/3,101 BEEP 1/20,30 
15 RANDOMIZE INT <RND*6553Ó): LET X=1000+100*INT (RND*3): 
LET Y=1+INT <RND*X): FOR X=1 TO Y: READ P*: NEXT X 


20 
N 1 * " 
22 


cls : 

ROCA; 
PRINT 
24 PRINT 


PRINT AT 0,0j" ROCAS DE NUESTRO PLANETA 

*j INK 3; PAPER 7; FLASH 1 iP$ 

>"A QUE CLASE DE ROCA PERTENECE"’*"ESTE ELEMENTO...? 
’ 1 11 i . MAGMATICAS. 11 ’ ’ " 2. SEDIMENTARIAS. 

IF Cí>"0" AND C*<"4" THEN GO TO 40 


RESTORE X: READ R*,X 
"PREGUNTA NUMERO: "i 


3. METAFORMICA 


LET C$=INKEYS: 

GO TO 30 

LET X=900+100*VAL CS: RESTORE X: READ C* 
IF R*=" MAGMATICAS" THEN LET W=4 
R$=“ METAMQRFICAS" THEN LET W=2 


30 
35 
40 

45 

46 

47 .. 

50 IF Cí=Rí THEN PRINT ” "CORRECTO:"; INK W;R$: 

BEEP 1/100,A: NEXT A: BORDER O: LET AC=AC+1 

C$< >R$ THEN PRINT ’ ’ j FLASH 1 í " INCORRECTO. 11 J FLASH 0} ’ ’ "LA RESPUESTA ERA 
WjR$: BEEP 1/2,-10: FOR A=1 TO 10: BEEP 1/100,A: PAUSE il-A: BEEP 1/100, 


IF ___ -™J| 

IF R*=" SEDIMENTARIAS* THEN LET W=7 


FOR A=1 TO 40 STEP 2: QUT 254, 


60 IF 

INK 

10-A: NEXT A 
70 NEXT N 
SO CLS : PRINT 


ROCAS DE NUESTRO PLANETA 


RESULTADOS DEL CUESTIONA 


IF 

IF 

IF 

GO 

CLS 


THEN 

THEN 

THEN 


1000 
CLS : 


STOP 


READ A$,A: PRINT INVERSE 1fAT O,Oi A*,,: 
PRINT A*,: NEXT X: PRINT : PRINT ’ 11 PULS 
NEXT N 


RIO I n 

82 PRINT AT 4,6j "ACIERTOS."jACíAT 6, ói "FALLOS.“;10-AC;AT 8,8 

: H PORCENTAJE" 11 ; AC^*10 í 11 

’100 PRINT AT 10,0;" ROCAS DE NUESTRO PLANETA PRINT AT 12,B;“0. COMENTA 

RIO GENERAL" ;AT 14,S; 11 1. LISTAR LAS ROCAS" ; AT 16,3; "2. CUESTIONARIO", AT 18,3í"3. 
FIN* 

105 PRINT AT 21,0;" OPCION: O,1,2,3 

107 IF INKEY4-"O” THEN GO TO 2000 

110 IF INKEYí=”1" THEN GO TO 200 

112 IF INKEY$="2" THEN GO TO 10 

114 IF INKEYÍ-"3" 

120 GO TQ 107 
200 CLS : RESTORE 

210 FOR N=1 TO 3: CLS : BEEP 1/5,N*1G: 

PRINT : PRINT : FOR X=1 TQ A: READ Aí: : 

A UNA TECLA PARA CONTINUAR ": PAUSE O: 

220 CLS : GO TO 100 

1000 DATA " MAGMATICAS",16 

1001 DATA "OLIVINO","SILICE","TRIDIMITA","CRISTOBALITA","BERILO","ARBESTO","MICA 
« ( "CUARZO","BIOTITA","PIROXENO","MOSCOVITA","QRTOCLASA","PLAGIOCLASA","PEGMATITA 
“,"CAOLIN","PIROPO" 

1100 DATA * SEDIMENTARIAS" ,9 , lr7rc>oll 

1101 DATA "ARCILLA","LIMONITA","CALCITA",“LATERITA","BAUXITA","CAOLINITA , FERRU 
GINOSA","ARENISCA","YESO" 

1200 DATA " METAMORFICAS",6 

1202 DATA "PIZARRA","MICACITA","GNEIS","MIGMATITA","AZUFRE","PLATA" 

2000 CLS 
2010 PRINT " 

2050 LET Q*= 
enfriarse, 
sicion qui - 
par de agua 
2055 PRINT . 

FOR 2-1 TO LEN 0$: PRINT Q$íz);: BEEP .02+RND*.07,1O: NEXT z 
PRINT AT í9 f Q; M PULSA UNA TECLA PARA CONTINUAR 11 : PAUSE O: CL£ 

2100 PRINT " ROCAS DE NUESTRO PLANETA " í AT 2,0; 1S * SEDIMENTARIAS. . , " 

2110 LET E4= ,: Las rocas sedimentarias forman a partir de rocas pre~ ex 

i sientes {i gneas jTmetamor f i - cas c- incluso sedimentarias) merced a cuatro pr 

ocasos su* casi ves: - meteorizaeion 

- transporte “ sedimentación “ di agene 

sis. 11 

2120 PRINT 1 ’ ’ 

2130 FOR z~i TO LEN E$: PRINT E$íz)í : BEEP .02 + RNB#.07 f iO: NEXT z 
2140 PRINT AT 19,0; H PULSA UNA TECLA PARA CONTINUAR 11 : PAUSE O: CLS 

2200 PRINT Jl ROCAS DE NUESTRO PLANETA " ; AT 2,0;" # METAMORFICAS. . . 11 


/ 

* f y * 


ROCAS DE NUESTRO PLANETA 11 i AT 2,0;" * MAGMATICAS. . . 

San rocas que proceden de la solidificación de un magma al 
Se denomina magma a un fundido cuya campo 

mi:.a es equivalente a la de una mezcla de sí i í cates, con va 

ctíSS mater i - as volátiles.*' 


2060 

2070 


2210 LET T$=" 


Una vez llegado al proce 


so de diagenesis, las rocas 


se 


15 




d i mentar-i as su-íren por- di* versas cansas, un aumento de presión y/o temper 
atura, con lo que se ven sometidas a una serie de nuevos cambios (en es 

tado solido) y pasan a re* cas metamor -f i cas. " 

2220 PRINT ’’’ 

2230 FOR z=l TO LEN T$: PRINT TS(z);: BEEP .02+ RND*.07,10: NEXT 2 

2240 PRINT AT 19,0;" PULSA UNA TECLA PARA CONTINUAR “: PAUSE 0: CLS : GO TO 100 

3000 POR zs i TO LEN Qí: PRINT Qí(z)j: BEEP .05,10: NEXT z 

8000 STOP 

9998 BORDER 0: POKE 23693,7: CLS : LOAD ""SCREENi 

9999 SAUE "ROCAS"CODE 16SS4,PEEK 23Ó2?+25Ó*PEEK 23628-16332: GG TO 1 





DESTRUYE EL HRYOR 
NUHERO DE COMETAS 
QUE SE DIRIGEN A 
LA TIERRA. 

i SRRCE: aüil:lsl 


2 

NEXT 

3 

4 

5 
é 

7 

8 
9 

i 1 
12 

14 

ló 

20 

30 

32 

35 

36 
40 

43 

44 

45 
100 

= 15 
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1 TF INKEY$O IMI THEN SO TO 9999 

PRINT AT 10,10!"PARA LA CINTA": FOR a=0 TO 251 POKE 64350+a,PE£K (23470+a): 

a: PAUSE 200 

BORDER O: PAPER O: INK 7: CLS 
LET -fñ=0: LET pu=0: LET en=28 
LET x=10: LET y=10: LET xb=x: LET yb=y 
LET r=10 : LET nr=29 
LET z=6: LET zz=20 
LET h=13: LET hh=24 
LET g=S: LET gg~26 
LET b«0 

PRINT AT 0,0;" PUNTOS!000 FALLOS:00 


"¡AT 1,0!" ENERGIA: 


FOR i=l TO 15: PRINT AT 3+INT (RND*12),INT <RND*31>i"."! NEXT i 

PLOT 0,5: DRAW 255,0: LET a=0 

LET 1=USR 64350 

POKE 23677,PEEK (23677)-8 

LET a*a+RND*20-RND*20 

IF a<0 THEN LET a=0 

IF a>28 THEN LET a=28 

DRAW S,a-b 

PLOT 255,0: DRAW O,a 
PLOT 255,0: DRAW O,a 
LET b=a 

IF INKEY$=“p" THEN PRINT INK 2¡AT x,y-2;“ ?": LET y=y+l: IF y>15 THEN LET y 














105 
110 
120 
T x- 
130 
T x- 
140 
200 
210 
300 
10 ) 
310 
320 
330 
340 
400 
10 ) 
410 
500 
10 ) 
510 
600 
10 ) 
¿10 
700 
1000 
2000 

2005 

2006 
2007 
2003 

2009 

2010 

2015 

2016 


";AT x+2,y-2; " 


11 i A 
"i A 


IF y=3 THEN GQ TO 120 

1F INKEYÍ< > "p" THEN LET y=y-l: IF y<3 THEN LET y=3 
IF INKEY$=■q" THEN PRINT AT x,y-2;" "iAT x+l,y-2; u 

1,y-2)" LET x=x-l: IF x< 4 THEN LET x=4 

IF INKEY$= “a" THEN PRINT AT x,y-2;*' " i AT x+l,y-2*" " i AT x+2, y-2; “ 

l,y-2¡“ LET x=x+i: IF x>14 THEN LET x=14 

IF INKEYÍ=" " THEN BEEP .02,-20: GO SUB 2000 
PRINT AT xb,yb;" "j AT x.yf■???* 

LET xb=x: LET yb=y 

IF rr< 1 THEN PRINT AT r,rr-;" ": LET -fa=-fa+l: LET rr=29: LET r = 4 + INT (RND* 

PRINT INK ó;AT r,rr¡“?? “ 

LET rr=rr-l 

IF ía>10 THEN GO TG 3000 
PRINT AT O, 26; -f a 
IF zz<i THEN PRINT AT z,zz;" 


LET ía=fa+i: LET zz=29: LET z=4+INT (RND* 


IF pu>60 THEN PRINT INK 6;AT z,zz;"?? LET zz=zz-l 

IF hhí 1 THEN PRINT AT h,hhf" “: LET ía=fa + l: LET hh=29: LET h=*4 + INT (RND* 
IF pu>120 THEN PRINT INK 6¡AT h,hh;"?? : LET hh=hb-l 

IF gg< 1 THEN PRINT AT 9,gg;” 11 : LET -fa=fa+l: LET gg=29: LET g=4 + INT (RND* 

IF pa>130 THEN PRINT INK 6 íAT 9 , 99 ;“?? "1 LET 99 = 99-1 
IF RND >.35 THEN PRINT AT 3+INT (RND*12),INT ÍRND*31) j“. “ 

GO TO 20 

FOR c=y + l TO 2~". PRINT INK 4;AT x,c + 3f‘ ?" 

IP x = r AND z + 3=rr THEN GO TO 2050 

IF x=z AND c + 3= zz THEN GO TO 2200 

IF >,*h AND c + 3=hTi THEN GQ TO 2300 

IF x=g AND c +3=gg THEN GO TO 2400 

NEXT c 

PRINT AT x,3i;" " 

PRINT PAPER OJAT l,en;" " 

IF e n = 11 THEN GO TO 3000 


2017 LET en=en-l 
2020 RETURN 

2050 BEEP .05,5: PRINT AT r,rr¡" LET rr*29; LET r=4+INT <RND*10) 

2060 LET pu=pu+10 

2070 PRINT AT 0,12jpu 

2075 LET en=en+l 

2080 IF en>27 THEN LET en=27 

2090 PRINT PAPER 2;AT l,en;“ " 

2100 GO TO 310 


2200 

BEEP 

*05,5: 

PRINT 

AT 

2 , z z ; ,l 

*’ : LET 

zz=29 : 

LET 

z=4+1NT 

( RND*1 0 ): 

GO 

TO 

206 

2300 

0 

BEEP 

0 

Ul 

U1 

PRINT 

AT 

h, h h f " 

El : LET 

hh=29: 

LET 

h=4+INT 

(RND*iO) : 

GO 

TO 

206 

2400 

n 

BEEP 

.05,5 : 

PRINT 

AT 

9 * 99Í 11 

" : LET 

gg=29: 

LET 

9=4+1NT 

<RND*10) : 

GO 

TO 

206 

3000 

FOR a 

= 1 TO 

5: FOR 

5 = 

0 TÜ 255 

STEP 4: 

OUT 254 


NEXT s: 

NEXT a 





3010 PRINT AT 10,10;"GAME OVER" 

3020 PRINT AT 12,4;“LOS COMETAS DESTRUYERON";AT 13,10;"TU PLANETA" 
3030 PRINT AT 16,8;"OTRA PARTIDA 3/N" 

3040 IF 1NKEYÍ= ,, 5 I * THEN CLS : RUM 3 
3050 IF INKEY$=“r." THEN RANDOMIZE USR O 
3060 GO TO 3040 

9998 OLEAR : LOAD " 'SCREEN* 

9999 SAVE "COMETA"CODE 1Ó334,PEEK 23627+25ó*PEEK 23628-163S2: GO TO 1 
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SI PREFIERE SUSCRI 
POR^TELEFONO 


. i 


¡¡YA PUEDES COMPLETAR TU COLECCION!! 

DE 


Software Spectrum 


BOLETIN DE PEDIDO PARA NUMEROS ATRASADOS 


í 

I 


Deseo recibir los siguientes números de SOFT SPECTRUM al precio de 375 ptas. 
cada uno: 


9^0 


Números: _J_ / ^ ^ -/ ^ ■— 

Nombre y apelados.- 

Domicilio . . *.- - - ■ 


V- 


-/-J-/J-/—/1L/ — 7 . 


Código Postal .- .Ciudad .(.) 

Fecha . Teléfono! ). 

El importe lo haré efectivo: 

□ Por giro postal n. 0 . 

□ Por talón nominativo adjunto. 


La 


remitir a SOFT SPECTRUM. C/. Bailén, 20. 1.° Izqda. 28005 Madrid 


1 

I 
I 



























































US MEJORES RECUERDO 





